From ec4b39c3ef3b2ead97780e2ac96dc92685556bdb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 Sep 2003 02:18:39 +0000 Subject: [PATCH] (decode-coding-inserted-region): Use car of the return value of find-operation-coding-system. --- lisp/international/mule.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 12419ee4681..a82ead3999a 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1850,9 +1850,9 @@ of the function `insert-file-contents'." (setq coding (funcall set-auto-coding-function filename (- (point-max) (point-min))))) (or coding - (setq coding (find-operation-coding-system - 'insert-file-contents - filename visit beg end replace))) + (setq coding (car (find-operation-coding-system + 'insert-file-contents + filename visit beg end replace)))) (if (coding-system-p coding) (or enable-multibyte-characters (setq coding -- 2.30.2